home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / DLGHEPOP.PRG < prev    next >
Text File  |  1993-05-23  |  559b  |  28 lines
  1. PROCEDURE DlgHePop
  2. PARAMETERS pcObj
  3. *----------------------------------------------------------------------------
  4. * NAME
  5. *   DlgHePop - 
  6. *
  7. * DESCRIPTION
  8. *
  9. * PARAMETERS
  10. *   pcObj      = 
  11. *
  12. *----------------------------------------------------------------------------
  13.   IF gnLevel = 2
  14.     SET ORDER TO File_Name
  15.     SET EXACT OFF
  16.     SET KEY TO gc_file
  17.     DEFINE POPUP &cPopDef PROMPT FIELD Hlp_Headng
  18.   ELSE
  19.     SET ORDER TO Uniq_File
  20.     DEFINE POPUP &cPopDef PROMPT FIELD Hlp_Title
  21.   ENDIF
  22.  
  23. RETURN
  24. *-- EOP: DlgHePop WITH pcObj
  25.  
  26.  
  27.  
  28.